home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP212.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  3KB  |  136 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 212 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> The Machine (340-9666)"
  33.   Message " 2 --> The Invention Factory (431-1194)"
  34.   Message " 3 --> PCSI dBBS (529-0498)"
  35.   Message " 4 --> The Doctor's Office (662-8597)"
  36.   Message " 5 --> Friends (781-4723)"
  37.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  38.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  39.   Locate 22,0
  40.   Message "Your Choice -->"
  41.   Goto Retype1
  42. ;
  43. Retype1:
  44.   Locate 22,15
  45.   Get S3
  46.   Switch S3
  47.       Case "E"
  48.          EndSwitch
  49.          Execute "Make.cmd"
  50.       EndCase
  51.       Case "R"
  52.          EndSwitch
  53.          Goto Activate
  54.       EndCase
  55.       Case "S"
  56.          EndSwitch
  57.          Goto Switch
  58.       EndCase
  59.       Case "M"
  60.          Clear
  61.          Message "Manual dial for area "
  62.          Locate 0,21
  63.          Message S2
  64.          Message "What number do you wish to dial --> "
  65.          Locate 1,36
  66.          Get S6
  67.          Assign S5 "Manual dialing."
  68.          Execute "Dial"
  69.       EndCase
  70.       Case "D"
  71.          Execute "Discnect"
  72.       EndCase
  73.       Case "1"
  74.          Assign S5 "Dialing The Machine at 340-9666."
  75.          Assign S6 "3409666"
  76.          Execute "Dial"
  77.       EndCase
  78.       Case "2"
  79.          Assign S5 "Dialing The Invention Factory at 431-1194."
  80.          Assign S6 "4311194"
  81.          Execute "Dial"
  82.       EndCase
  83.       Case "3"
  84.          Assign S5 "Dialing PCSI dBBS at 529-0498."
  85.          Assign S6 "5290498"
  86.          Execute "Dial"
  87.       EndCase
  88.       Case "4"
  89.          Assign S5 "Dialing The Doctor's Office at 662-8597."
  90.          Assign S6 "6628597"
  91.          Execute "Dial"
  92.       EndCase
  93.       Case "5"
  94.          Assign S5 "Dialing Friends at 781-4723."
  95.          Assign S6 "7814723"
  96.          Execute "Dial"
  97.       EndCase
  98.       Default
  99.          Message " "
  100.          Message "Invalid choice, please retype"
  101.          Locate 22,15
  102.          Message "          "
  103.          Goto Retype1
  104.       EndCase
  105.   EndSwitch
  106. ;
  107. Switch:
  108.   Find S7 "R"
  109.   IF Found
  110.      Tran "I!"
  111.      Pause 2
  112.      Tran "ATZ!"
  113.      Assign S7 "H"
  114.      Rflush
  115.   ELSE
  116.      Tran "ATZ I!"
  117.      Pause 2
  118.      Tran "!"
  119.      Assign S7 "R"
  120.      Rflush
  121.   ENDIF
  122.   Pause 3
  123.   Rflush
  124.   Goto Page1
  125. ;
  126. Activate:
  127.   Find S8 "A"
  128.   IF Found
  129.      Assign S8 "I"
  130.   ELSE
  131.      Assign S8 "A"
  132.   ENDIF
  133.   Goto Page1
  134. ;
  135. Exit
  136.